home *** CD-ROM | disk | FTP | other *** search
/ HAKERIS 11 / HAKERIS 11.ISO / linux / system / LinuxConsole 0.4 / linuxconsole0.4install-en.iso / guile0.4.lcm / share / guile / 1.6.0 / scripts / PROGRAM < prev    next >
Encoding:
Text File  |  2004-01-06  |  1.3 KB  |  46 lines
  1. #!/bin/sh
  2. # aside from this initial boilerplate, this is actually -*- scheme -*- code
  3. main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
  4. exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
  5. !#
  6. ;;; PROGRAM --- Does something
  7.  
  8. ;;     Copyright (C) 2002 Free Software Foundation, Inc.
  9. ;;
  10. ;; This program is free software; you can redistribute it and/or
  11. ;; modify it under the terms of the GNU General Public License as
  12. ;; published by the Free Software Foundation; either version 2, or
  13. ;; (at your option) any later version.
  14. ;;
  15. ;; This program is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18. ;; General Public License for more details.
  19. ;;
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with this software; see the file COPYING.  If not, write to
  22. ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  23. ;; Boston, MA 02111-1307 USA
  24.  
  25. ;;; Author: J.R.Hacker
  26.  
  27. ;;; Commentary:
  28.  
  29. ;; Usage: PROGRAM [ARGS]
  30. ;;
  31. ;; PROGRAM does something.
  32. ;;
  33. ;; TODO: Write it!
  34.  
  35. ;;; Code:
  36.  
  37. (define-module (scripts PROGRAM)
  38.   :export (PROGRAM))
  39.  
  40. (define (PROGRAM . args)
  41.   #t)
  42.  
  43. (define main PROGRAM)
  44.  
  45. ;;; PROGRAM ends here
  46.